home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 74 / IOPROG_74.ISO / soft / Codice / Libro Visual Basic e Database / ColCliente.vb < prev    next >
Encoding:
Text File  |  2003-09-30  |  611 b   |  27 lines
  1. Public Class ColCliente
  2.     
  3.     Dim mcol As Hashtable
  4.     Public Sub New()
  5.         mcol = New Hashtable()
  6.     End Sub
  7.     Public Sub Remove(ByVal chiave As String)
  8.         mcol.Remove(chiave)
  9.     End Sub
  10.  
  11.     Public Function Item(ByVal chiave As String) As Cliente
  12.         Return mcol.Item(chiave)
  13.     End Function
  14.  
  15.     Public Sub Add(ByVal obj As Cliente)
  16.         mcol.Add(obj.Key, obj)
  17.     End Sub
  18.     Public Function Count() As Integer
  19.         Return mcol.Count
  20.     End Function
  21.  
  22.     Public Function Elements() As ICollection
  23.         Return mcol.Values
  24.     End Function
  25.  
  26. End Class
  27.